NonStop

                            JAMES SCOTT SANBAR
                               8100 Glenwood
                          Oklahoma City, OK 73114

                              CIS: 73760,3304


Copyright (C) 1991 by J. Scott Sanbar.  All rights reserved.

NONSTOP.PAS along with NONSTOP.ASM together form a Turbo Pascal 5.x Unit
that can be linked in to disable CTRL-ALT-DEL, CTRL-BREAK and CTRL-C
from within a Turbo Pascal 5.x program on any IBM PC/XT/AT/PS/2 or
true compatibles. Booleans are provided to enable/disable any or all of
these key combinations throughout the program.  The unit also contains
code to disable CTRL-2, which will flag a Ctrl-C and disables the
Alt-3 (KeyPad) method of entering a Ctrl-C into the keyboard buffer.
There are also booleans for these functions.

.ZIP should contain NONSTOP.ASM and NONSTOP.PAS as well as NONSTOP.OBJ,
the object code assembled from NONSTOP.ASM and ready to link into your
unit with the TP 5.x and up compiler.

You must first compile the NONSTOP.PAS module to get the NONSTOP.TPU
module ready to link into your program.  If you are using the IDE, make
sure the IDE knows where to find the NONSTOP.OBJ object file (see
Directories option under the Options Menu) and hit alt-F9.  You will
now have a ready to link .TPU.  From the command line, make sure TPC can
find the .OBJ then type:

TPC NONSTOP

This will create the .TPU.

To use, just include the identifier NONSTOP in the uses clause of your
program, then call the procedure InstallNonStopISR:

program UnstoppableProgram;

uses NonStop;

begin
 InstallNonStopISR;
 repeat until false
end.

This program will not be stoppable from the keyboard with clean DOS
running in real mode.  Disables the CTRL-BREAK, CTRL-C, Ctrl-2, Alt-3
(KeyPad) and CTRL-ALT-DEL key combinations.  Reenables on normal TP
program exit.

Five global booleans are provided to toggle on and off the disabling of
these key combinations (default TRUE):

NoBoot  := false; {Enables CTRL-ALT-DELETE key combination}
NoBreak := false; {Enables CTRL-BREAK key combination}
NoCtrlC := false; {Enables CTRL-C key combination}
NoCtrl2 := false; {Enables CTRL-2 key combination}
NoAlt3  := false; {Enables Alt-3 (Keypad) combination}

Setting them back to true will disable the respective keys.  Any or all of
the key combinations may be enabled or disabled as often as you wish from
any part of the program.

If you wish to recompile everything for some reason, you will need a TASM
or other MASM compatible assembler as well as Turbo Pascal 5.x and up.
Then, do the following:

TASM NONSTOP.ASM
TPC NONSTOP.PAS

NONSTOP.ASM should work with any MASM compatible assembler, but has only
been tested with TASM.

This text as well as both modules are copyrighted and may not be sold for
profit.  Feel free to link the NONSTOP.TPU module into any of your
programs or distribute these files free of charge as long as they are
distributed together and unaltered in the original .ZIP archive.

The code was based on various TSR's, TP code, book examples and the IBM
Personal Computer Hardware Technical Reference BIOS listing, and alot just
came out of my own head.

May not work with 80386 based multi-tasking operating environments, namely
Windows 3.0 in 386 enhanced mode.  Works fine with Windows 3.0 in standard
or real mode.  This cannot, unfortunately, be helped without a protected
mode solution.  Will still disable keyboard breaks.

The present form is a revision and bug fix.  The first distributed copy did
not work on a regular keyboard, only an extended, however alot of people
downloaded it and presumably tried it out but I didn't get any feedback
about the bug.  Please write me at the address above or send me E-Mail via
Compuserve if you find any bugs or have any suggestions.

This unit has been ported over to a DOS device driver that universally
disables the respective key combinations for batch files, DOS and most
programs.  It is called NOSTOP.SYS and can be found in the file NOSTOP.ZIP
on Compuserve - MSOPSYS, IBMSYS and PC Magnet forum libraries.  The same
bug found its way into that device driver, so look for the new version
which I will upload shortly with the bug fix.

This text, NONSTOP.PAS and NONSTOP.OBJ are all:

Copyright (C) 1991 by J. Scott Sanbar.  All rights reserved
Freeware